home *** CD-ROM | disk | FTP | other *** search
/ Aminet 40 / Aminet 40 (2000)(Schatztruhe)[!][Dec 2000].iso / Aminet / comm / misc / easytransfer.lzh / EasyTransfer / AmigaSource / EasyAmiga.c next >
Encoding:
C/C++ Source or Header  |  1995-11-11  |  37.1 KB  |  1,413 lines
  1. /* EasyAmiga.c By Kamran Karimi.
  2.  
  3.    This program tranfers files between an Amiga and
  4.    a PC using a serial NULL modem cable. Another
  5.    Program should run on the PC.
  6.  
  7.    To make EasyAmiga, Remote.c, Local.c and Serial.c are
  8.    also needed.
  9.  
  10.    Compiled with SAS/C 6.50
  11.    1> sc EasyAmiga.c
  12.    1> slink lib:c.o EasyAmiga.o Remote.o Local.o Serial.o lib lib:sc.lib\
  13.             lib:amiga.lib
  14.  
  15. */
  16.  
  17. #include <stdio.h>
  18. #include <stdlib.h>
  19. #include <string.h>
  20.  
  21. #include <exec/types.h>
  22. #include <exec/memory.h>
  23.  
  24. #include <dos.h>
  25.  
  26. #include <intuition/intuition.h>
  27. #include <clib/exec_protos.h>
  28. #include <clib/dos_protos.h>
  29. #include <clib/intuition_protos.h>
  30. #include <clib/graphics_protos.h>
  31.  
  32. #include "EasyAmiga.h"
  33.  
  34. struct FInfo  {
  35.  struct FInfo *next,*prev;
  36.  byte Selected,type;
  37.  char name[32];
  38.  char data[MAXAMINFOLEN + 10];
  39. };
  40.  
  41. extern struct PacketStruct Packet; 
  42.  
  43. #define SERTESTLEN 255
  44. #define PACKET_SIZE 255
  45. struct PacketStruct
  46. {
  47.  UBYTE Len;
  48.  UBYTE Data[PACKET_SIZE + 2];
  49. };
  50.  
  51. extern LONG ReceivePacket(VOID),SendPacket(VOID),ConfigSerial(ULONG BAUD);
  52. extern LONG OpenSerial(VOID);
  53. extern VOID CloseSerial(VOID);
  54. extern VOID ClrSer(VOID);
  55.  
  56. extern LONG GetSynch(VOID),PutSynch(VOID);
  57. extern LONG OpenTimer(VOID);
  58. extern VOID CloseTimer(VOID);
  59.  
  60. extern LONG LocalDir(VOID);
  61. extern LONG LocalDel(VOID),LocalMKDir(char *Name),LocalCd(char *Path);
  62.  
  63. extern LONG RemoteMKDir(char *Name),RemoteDel(VOID),RemoteCd(char *Path);
  64. extern LONG RemoteDir(VOID),RemoteReceive(VOID),RemoteSend(VOID);
  65. extern VOID RemoteQuit(VOID);
  66. extern LONG CheckLink(VOID);
  67.  
  68. extern struct ExecBase *SysBase;
  69. struct IntuitionBase *IntuitionBase;
  70. struct GfxBase *GfxBase; 
  71. extern struct DOSBase *DOSBase;
  72. struct Window *MainWin;
  73. struct Screen *MainScr;
  74.  
  75. FILE *ConfigFile;
  76. char ConfigFileName[25] = {"S:EasyTransfer.Config"};
  77.  
  78. long OverWriteProtect = TRUE;
  79.  
  80. long NumDone;
  81. SHORT Active = -1;
  82. USHORT OldVPot[2],OldHPot[2],SelectPos,FileNum[2] = {0,0},HPos[2] = {0,0};
  83. struct FInfo *First[2] = { NULL, NULL };
  84. struct FInfo *ItemAddr[2][MAXFILENUM] = 
  85. {
  86.  { NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL},
  87.  { NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL}
  88. };
  89.  
  90. char OrigPath[250];
  91.  
  92. size_t FileBuffSize = 32000;
  93.  
  94. #define DEFUNIT     0
  95. #define DEFDELAY    3
  96. #define DEFCHECK    5
  97. #define DEFCHECKSUM 1
  98.  
  99. ULONG NowSec,NowMic;
  100.  
  101. char SerialName[SERNAMELEN];
  102. SHORT UnitNum;
  103. SHORT DelayTime;
  104. SHORT CheckTime;
  105. SHORT CheckSumTry;
  106. SHORT Method;
  107. SHORT MSpeed, CurrSpeed;
  108. SHORT Mode = BIN;
  109.  
  110. ULONG Speed[MAXHARDSPEED] = 
  111.   { 300, 600,1200,2400,4800,9600,19200,38400,57600,115200 };
  112.  
  113. SHORT Row = 0;
  114. LONG MessNum[MAXMESSAGE] = { -1, -1, -1, -1};
  115.  
  116.  
  117. VOID PrintFileName(char *Name)
  118. {
  119.  if(Name)
  120.   sprintf(TransFileName,"%-31.31s",Name);
  121.  else
  122.   sprintf(TransFileName,"%-31.31s"," "); 
  123.  PrintIText(MainWin->RPort, &TransFileText,0,0);
  124. }
  125.  
  126. VOID ShowRemainder(ULONG Transfered, ULONG Total)
  127. {
  128.  ULONG  newTransfered;
  129.  static ULONG prevTransfered = 0;
  130.  
  131.  if(Total == 0)
  132.  {
  133.   SetAPen(MainWin->RPort,0);
  134.   RectFill(MainWin->RPort,371,159,627,167);
  135.   prevTransfered = 0;
  136.  }  
  137.  else
  138.  {
  139.   if(Transfered > Total) Transfered = Total;
  140.   newTransfered = 256 * Transfered / Total;
  141.   if((newTransfered > (prevTransfered + 5)) || (Transfered == Total))
  142.   {
  143.    SetAPen(MainWin->RPort,3);
  144.    RectFill(MainWin->RPort,371,159,371 + newTransfered,167);
  145.    prevTransfered = newTransfered;
  146.   }
  147.  }
  148. }
  149.  
  150. VOID Message(LONG MessageNum)
  151. { 
  152.  LONG count;
  153.  static int Alt[4] = {11,8,11,8};
  154.  
  155.  if(MessageNum == -1) return;
  156.  if(MessageNum == CURR_SPEED)
  157.  {
  158.   for(count = 0; count < 6; count++) 
  159.    MessageT[MessageNum][count + 7] = SpeedTexts[CurrSpeed].IText[count];
  160.  } 
  161.  if(MessageNum == SPEED_DONE)
  162.  {
  163.   for(count = 0; count < 6; count++) 
  164.    MessageT[MessageNum][count + 12] = SpeedTexts[CurrSpeed].IText[count];
  165.  }
  166.  if(Row < MAXMESSAGE)
  167.  { 
  168.   if(Alt[Row] == 8) Alt[Row] = 11;
  169.   else Alt[Row] = 8;
  170.   if(Alt[Row] == 11)
  171.   {
  172.    strcpy(MessIntuiText[Row].IText," ");
  173.    PrintIText(MainWin->RPort, &MessIntuiText[Row],8,0);
  174.   }
  175.   strcpy(MessIntuiText[Row].IText,MessageT[MessageNum]);
  176.   PrintIText(MainWin->RPort, &MessIntuiText[Row],Alt[Row],0);
  177.   MessNum[Row] = MessageNum;
  178.   Row++;
  179.   return;
  180.  }
  181.  for(count = 0; count < MAXMESSAGE - 1; count++)
  182.  {
  183.   if(MessNum[count + 1] != -1)
  184.   {
  185.    if(Alt[count] == 8) Alt[count] = 11;
  186.    else Alt[count] = 8;
  187.    if(Alt[count] == 11)
  188.    {
  189.     strcpy(MessIntuiText[count].IText," ");
  190.     PrintIText(MainWin->RPort, &MessIntuiText[count],8,0);
  191.    }
  192.    strcpy(MessIntuiText[count].IText,MessIntuiText[count + 1].IText);
  193.    PrintIText(MainWin->RPort, &MessIntuiText[count],Alt[count],0);
  194.    MessNum[count] = MessNum[count + 1];
  195.   }
  196.  }
  197.  if(Alt[MAXMESSAGE - 1] == 8) Alt[MAXMESSAGE - 1] = 11;
  198.  else Alt[MAXMESSAGE - 1] = 8;
  199.  if(Alt[MAXMESSAGE - 1] == 11) 
  200.  {
  201.   strcpy(MessIntuiText[MAXMESSAGE - 1].IText," ");
  202.   PrintIText(MainWin->RPort, &MessIntuiText[MAXMESSAGE - 1],8,0);
  203.  }
  204.  strcpy(MessIntuiText[MAXMESSAGE - 1].IText,MessageT[MessageNum]);
  205.  PrintIText(MainWin->RPort,&MessIntuiText[MAXMESSAGE - 1],
  206.                                                       Alt[MAXMESSAGE - 1],0);
  207.  MessNum[MAXMESSAGE - 1] = MessageNum; 
  208. }
  209.  
  210.  
  211. VOID WaitPointer(VOID)
  212. {
  213.  RemoveGList(MainWin,PCSelect,MAXFILENUM);
  214.  RemoveGList(MainWin,AMSelect,MAXFILENUM);
  215.  RemoveGList(MainWin,Gads,AMHPROP);
  216.  SetPointer(MainWin, WaitPointerData, 16, 16, 0, 0);
  217. }
  218.  
  219. VOID NormalPointer(VOID)
  220. {
  221.  ClearPointer(MainWin);
  222.  AddGList(MainWin,Gads,-1,AMHPROP,NULL);
  223.  AddGList(MainWin,PCSelect,-1,MAXFILENUM,NULL);
  224.  AddGList(MainWin,AMSelect,-1,MAXFILENUM,NULL);
  225. }
  226.  
  227.  
  228. LONG PutSpeedMethodDelay(VOID)
  229. {
  230.  LONG Error,MinSpeed = MINSPEED - 1;
  231.  
  232.  if(ConfigSerial(Speed[MinSpeed])) return ERROR_SetSer;
  233.  Packet.Len = 1;
  234.  if(Method == BIOS)
  235.   Packet.Data[0] = 'B';
  236.  else 
  237.   Packet.Data[0] = 'H';
  238.  if((Error = SendPacket())) return Error;
  239.  if((Error = GetSynch())) return Error;
  240.  Packet.Len = 1;
  241.  Packet.Data[0] = CurrSpeed;
  242.  if((Error = SendPacket())) return Error;
  243.  if((Error = GetSynch())) return Error;
  244.  Packet.Len = 1;
  245.  Packet.Data[0] = DelayTime;
  246.  if((Error = SendPacket())) return Error;
  247.  if((Error = GetSynch())) return Error;
  248.  Packet.Len = 1;
  249.  Packet.Data[0] = CheckSumTry;
  250.  if((Error = SendPacket())) return Error;
  251.  if((Error = GetSynch())) return Error;
  252.  else return NO_ERROR;
  253. }
  254.  
  255.  
  256. LONG SetSerial(VOID)
  257. {
  258.  LONG Error,done = FALSE;
  259.  UBYTE count;
  260.  
  261.  do
  262.  {
  263.   Message(CURR_SPEED);
  264.   ClrSer();
  265.   Delay(150);
  266.   if(ConfigSerial(Speed[CurrSpeed])) return ERROR_SetSer;
  267.   if((Error = PutSynch())) return Error;
  268.   if((Error = GetSynch())) return Error;
  269.   Packet.Len = SERTESTLEN;
  270.   for(count = 0; count < SERTESTLEN; count++)
  271.    Packet.Data[count] = count;
  272.   if((Error = SendPacket())) return Error;
  273.   Packet.Len = 1;
  274.   if((Error = ReceivePacket())) return Error;
  275.   if(Packet.Data[0] == '!')
  276.   {
  277.    Message(SERVER_AGREED);
  278.    if((Error = PutSynch())) return Error;
  279.    Packet.Len = SERTESTLEN;
  280.    Error = ReceivePacket();
  281.    for(count = 0; count < SERTESTLEN; count++)
  282.     if(Packet.Data[count] != (UBYTE)(SERTESTLEN - count - 1)) break;
  283.    if((Error == ERROR_Timeout) || (count < SERTESTLEN))
  284.    {
  285.     Message(I_DONT_AGREE);
  286.     Packet.Len = 1;
  287.     Packet.Data[0] = '1';
  288.     if((Error = SendPacket())) return Error;
  289.     CurrSpeed--;
  290.    }
  291.    else
  292.    {
  293.     Message(I_AGREED);
  294.     Packet.Len = 1;
  295.     Packet.Data[0] = '!';
  296.     if((Error = SendPacket())) return Error;
  297.     Message(SPEED_DONE);
  298.     done = TRUE;
  299.    }
  300.   }
  301.   else 
  302.   {
  303.    Message(SERVER_DONT_AGREE);
  304.    if((Error = PutSynch())) return Error;
  305.    CurrSpeed--;
  306.   }
  307.   if((Error = GetSynch())) return Error;
  308.  }while((!done) && (CurrSpeed >= 0));
  309.  if(CurrSpeed < 0) return ERROR_NoSpeed;
  310.  return NO_ERROR;
  311. }
  312.  
  313.  
  314. VOID FMode(VOID)
  315. {
  316.  if(Mode == TEXT) Mode = BIN;
  317.  else Mode = TEXT;
  318.  Gads[TEXTBIN - 1].GadgetText = &Texts[6 + Mode];
  319.  RefreshGList(&Gads[TEXTBIN - 1],MainWin,NULL,1);
  320. }
  321.  
  322. VOID Activate(LONG Cause)
  323. {
  324.  if(Cause == AM)
  325.  {
  326.   if(Active != AM)
  327.   {
  328.    Borders[41].FrontPen = 1;
  329.    Borders[40].FrontPen = 2;
  330.    Borders[39].FrontPen = 2;
  331.    Borders[38].FrontPen = 1;
  332.    Borders[38].NextBorder = NULL;
  333.    DrawBorder(MainWin->RPort,&Borders[41],0,0);
  334.    Borders[38].NextBorder = &Borders[37]; 
  335.    if(Gads[0].GadgetText != &Texts[0])
  336.    { 
  337.     Gads[0].GadgetText = &Texts[1];
  338.     RefreshGList(&Gads[0],MainWin,NULL,1);
  339.    }   
  340.    Active = AM;
  341.   }
  342.  }
  343.  else if(Cause == PC)
  344.  {
  345.   if(Active != PC)
  346.   {
  347.    Borders[41].FrontPen = 2;
  348.    Borders[40].FrontPen = 1;
  349.    Borders[39].FrontPen = 1;
  350.    Borders[38].FrontPen = 2;
  351.    Borders[38].NextBorder = NULL;
  352.    DrawBorder(MainWin->RPort,&Borders[41],0,0);
  353.    Borders[38].NextBorder = &Borders[37];
  354.    if(Gads[0].GadgetText != &Texts[0])
  355.    { 
  356.     Gads[0].GadgetText = &Texts[2];
  357.     RefreshGList(&Gads[0],MainWin,NULL,1);
  358.    }   
  359.    Active = PC;
  360.   }
  361.  }
  362. }
  363.  
  364.  
  365.  
  366. VOID Configure(VOID)
  367. {
  368.  LONG count, Done = FALSE;
  369.  LONG Err = FALSE;
  370.  USHORT GadgetNum;
  371.  struct Gadget *GadgetPtr; 
  372.  struct IntuiMessage *message;
  373.  struct Window *ConfigWin;
  374.  SHORT tempMethod = Method,tempSpeed = MSpeed,t1,t2;
  375.  
  376.  if(Gads[0].GadgetText != &Texts[0]) /* start */  { FMode(); return; }
  377.  
  378.  sprintf(UnitBuff,"%d",UnitNum % 100);
  379.  UnitInfo.LongInt = UnitNum;
  380.  sprintf(DelayBuff,"%d",DelayTime % 100);
  381.  DelayInfo.LongInt = DelayTime;
  382.  sprintf(CheckBuff,"%d",CheckTime % 100);
  383.  CheckInfo.LongInt = CheckTime;
  384.  sprintf(CheckSumBuff,"%d",CheckSumTry % 100);
  385.  CheckSumInfo.LongInt = CheckSumTry;
  386.  strcpy(SerNameBuff,SerialName); 
  387.  if(tempMethod == BIOS)
  388.   ConfigGads[2].GadgetText = &ConfigTexts[3];
  389.  else 
  390.   ConfigGads[2].GadgetText = &ConfigTexts[4];
  391.  ConfigWindow.Screen = MainScr;
  392.  if(!(ConfigWin = (struct Window *) OpenWindow(&ConfigWindow))) return;
  393.  DrawBorder(ConfigWin->RPort,&ConfigBorders[11],330,84); 
  394.  PrintIText(ConfigWin->RPort,&ConfigTexts[14],0,0);
  395.  PrintIText(ConfigWin->RPort,&SpeedTexts[tempSpeed - 1],332,84);
  396.  t1 = LeftArrow.PlanePick;
  397.  t2 = RightArrow.LeftEdge;
  398.  RightArrow.LeftEdge = 118;
  399.  LeftArrow.PlanePick = RightArrow.PlanePick = 1;
  400.  DrawImage(ConfigWin->RPort,&RightArrow,310,1);
  401.  LeftArrow.PlanePick = RightArrow.PlanePick = t1;
  402.  RightArrow.LeftEdge = t2;  
  403.  do
  404.  {
  405.   WaitPort(ConfigWin->UserPort);
  406.   while(message = (struct IntuiMessage *)GetMsg(ConfigWin->UserPort))
  407.   {
  408.    GadgetPtr = (struct Gadget *)message->IAddress;
  409.    GadgetNum = GadgetPtr->GadgetID;
  410.    ReplyMsg((struct Message *) message);
  411.    switch (GadgetNum)
  412.    {
  413.     case SPEEDL: if(tempSpeed > MINSPEED) tempSpeed--;
  414.                  PrintIText(ConfigWin->RPort,&SpeedTexts[tempSpeed -1],332,84);
  415.                  break;
  416.  
  417.     case SPEEDR: if(tempSpeed < MaxSpeed[tempMethod]) tempSpeed++;
  418.                  PrintIText(ConfigWin->RPort,&SpeedTexts[tempSpeed -1],332,84);
  419.                  break;
  420.  
  421.     case USEBIOS:
  422.                  if(tempMethod == BIOS)
  423.                  {
  424.                   tempMethod = HARD;
  425.                  ConfigGads[2].GadgetText = &ConfigTexts[4];
  426.                  }
  427.                  else
  428.                  {
  429.                   tempMethod = BIOS;
  430.                   ConfigGads[2].GadgetText = &ConfigTexts[3];
  431.                   if(tempSpeed > MaxSpeed[tempMethod])
  432.                   {
  433.                    tempSpeed = MaxSpeed[tempMethod];
  434.                    PrintIText(ConfigWin->RPort,&SpeedTexts[tempSpeed-1],332,84);
  435.                   }
  436.                  }
  437.                  RefreshGList(&ConfigGads[2],ConfigWin,NULL,1);
  438.                  break;                    
  439.     case OK: 
  440.             if(SerNameBuff[0] != NULL) 
  441.              strcpy(SerialName,SerNameBuff);
  442.             else 
  443.              strcpy(SerialName,"serial.device");
  444.  
  445.             if((UnitBuff[0] != NULL) && (UnitInfo.LongInt >= 0))
  446.              UnitNum  = UnitInfo.LongInt;
  447.             else UnitNum = DEFUNIT;
  448.  
  449.             if((DelayBuff[0] != NULL) && (DelayInfo.LongInt > 0))
  450.              DelayTime = DelayInfo.LongInt;
  451.             else DelayTime = DEFDELAY;
  452.  
  453.             if((CheckBuff[0] != NULL) && (CheckInfo.LongInt >= 0))
  454.              CheckTime  = CheckInfo.LongInt;
  455.             else CheckTime = DEFCHECK;
  456.  
  457.            if((CheckSumBuff[0] != NULL) && (CheckSumInfo.LongInt >= 0))
  458.              CheckSumTry  = CheckSumInfo.LongInt;
  459.             else CheckSumTry = DEFCHECKSUM;
  460.  
  461.             Method = tempMethod;
  462.             MSpeed = tempSpeed;
  463.             Done = TRUE;
  464.  
  465.             break;
  466.     case SAVE: Err = FALSE;
  467.                ConfigFile = fopen(ConfigFileName,"w");
  468.                if(ConfigFile)
  469.                {
  470.                 if(SerNameBuff[0] != NULL)
  471.                  { if(!fprintf(ConfigFile,"%s\n",SerNameBuff)) Err = TRUE; }
  472.                 else 
  473.                  if(!fprintf(ConfigFile,"%s\n",SerialName)) Err = TRUE;
  474.  
  475.                 if(UnitInfo.LongInt >= 0)
  476.                  {if(!fprintf(ConfigFile,"%d\n",UnitInfo.LongInt)) Err = TRUE;}
  477.                 else
  478.                  if(!fprintf(ConfigFile,"%d\n",UnitNum)) Err = TRUE;
  479.  
  480.                 if(DelayInfo.LongInt > 0)
  481.                  {if(!fprintf(ConfigFile,"%d\n",DelayInfo.LongInt)) Err = TRUE;}
  482.                 else
  483.                  if(!fprintf(ConfigFile,"%d\n",DelayTime)) Err = TRUE;
  484.  
  485.                 if(CheckInfo.LongInt >= 0)
  486.                  {if(!fprintf(ConfigFile,"%d\n",CheckInfo.LongInt)) Err = TRUE;}
  487.                 else
  488.                  if(!fprintf(ConfigFile,"%d\n",CheckTime)) Err = TRUE;
  489.  
  490.                 if(CheckSumInfo.LongInt >= 0)
  491.                  {if(!fprintf(ConfigFile,"%d\n",CheckSumInfo.LongInt)) Err = TRUE;}
  492.                 else
  493.                  if(!fprintf(ConfigFile,"%d\n",CheckSumTry)) Err = TRUE;
  494.  
  495.                 if(!fprintf(ConfigFile,"%d\n",tempSpeed)) Err = TRUE;
  496.                 if(!fprintf(ConfigFile,"%d\n",tempMethod)) Err = TRUE;
  497.                 fclose(ConfigFile);
  498.                }
  499.                else Err = TRUE;
  500.                break;  
  501.  
  502.     case CANCEL:
  503.                  strcpy(SerNameBuff,SerialName);
  504.                  UnitInfo.LongInt = UnitNum;
  505.                  DelayInfo.LongInt = DelayTime;
  506.                  CheckInfo.LongInt = CheckTime;
  507.                  CheckSumInfo.LongInt = CheckSumTry;
  508.                  Done = TRUE;
  509.                  break;
  510.  
  511.     case SERNAME: if(SerNameBuff[0] != NULL) 
  512.                    strcpy(SerialName,SerNameBuff);
  513.                   else
  514.                   {
  515.                    strcpy(SerialName,"serial.device");
  516.                    strcpy(SerNameBuff,"serial.device");
  517.                   }
  518.                   RefreshGList(&ConfigGads[6],ConfigWin,NULL,1);
  519.                   break;
  520.  
  521.     case UNIT: if(UnitInfo.LongInt >= 0)
  522.                 UnitNum = UnitInfo.LongInt;
  523.                else UnitInfo.LongInt = UnitNum = DEFUNIT;
  524.                sprintf(UnitBuff,"%d",UnitNum);
  525.                RefreshGList(&ConfigGads[7],ConfigWin,NULL,1);
  526.                break;
  527.  
  528.     case DELAY: if(DelayInfo.LongInt > 0)
  529.                  DelayTime = DelayInfo.LongInt;
  530.                 else DelayInfo.LongInt = DelayTime = DEFDELAY;
  531.                 sprintf(DelayBuff,"%d",DelayTime);
  532.                 RefreshGList(&ConfigGads[8],ConfigWin,NULL,1);
  533.                 break;
  534.  
  535.     case CHECK: if(CheckInfo.LongInt >= 0)
  536.                  CheckTime = CheckInfo.LongInt;
  537.                 else CheckInfo.LongInt = CheckTime = DEFCHECK;
  538.                 sprintf(CheckBuff,"%d",CheckTime);
  539.                 RefreshGList(&ConfigGads[9],ConfigWin,NULL,1);
  540.                 break;
  541.  
  542.     case CHECKSUM: if(CheckSumInfo.LongInt >= 0)
  543.                     CheckSumTry = CheckSumInfo.LongInt;
  544.                    else CheckSumInfo.LongInt = CheckSumTry = DEFCHECKSUM;
  545.                    sprintf(CheckSumBuff,"%d",CheckSumTry);
  546.                    RefreshGList(&ConfigGads[10],ConfigWin,NULL,1);
  547.                    break;
  548.     default: break;
  549.    } 
  550.   }
  551.  }while(!Done);
  552.  if(ConfigWin) CloseWindow(ConfigWin);
  553.  DrawImage(MainWin->RPort,&DownArrow,297,5);
  554.  DrawImage(MainWin->RPort,&DownArrow,328,5);
  555.  DrawImage(MainWin->RPort,&RightArrow,5,23);
  556.  DrawImage(MainWin->RPort,&RightArrow,354,23);
  557.  DrawBorder(MainWin->RPort,(struct Border *) &Borders[41],0,0);
  558.  PrintIText(MainWin->RPort,&Texts[12],110,120); 
  559.  PrintIText(MainWin->RPort,&Texts[13],430,120); 
  560.  DrawImage(MainWin->RPort,&NameImage, 20,185);  
  561.  for(count = 0; count < 4; count++)
  562.  {
  563.   if(MessNum[count] != -1)
  564.   {
  565.    strcpy(MessIntuiText[count].IText,MessageT[MessNum[count]]);
  566.    PrintIText(MainWin->RPort, &MessIntuiText[count],8,0);
  567.   } 
  568.  }
  569.  if(Err) Message(ERROR_WriteConfig);
  570. }
  571.  
  572.  
  573. VOID FreeFInfo(LONG Cause)
  574. {
  575.  struct FInfo *next;
  576.  
  577.  while(First[Cause])
  578.  {
  579.   next = First[Cause]->next;
  580.   free(First[Cause]);
  581.   First[Cause] = next;
  582.  }
  583.  FileNum[Cause] = 0;
  584.  PGHInfo[Cause].HorizBody = MAXBODY; 
  585.  PGVInfo[Cause].VertBody = MAXBODY;
  586.  NewModifyProp(&Gads[PCVPROP + Cause - 1],MainWin,NULL,PGVInfo[Cause].Flags,
  587.                PGVInfo[Cause].HorizPot,PGVInfo[Cause].VertPot,
  588.                PGVInfo[Cause].HorizBody,PGVInfo[Cause].VertBody,1);
  589.  
  590.  NewModifyProp(&Gads[PCHPROP + Cause - 1],MainWin,NULL,PGHInfo[Cause].Flags,
  591.               PGHInfo[Cause].HorizPot,PGHInfo[Cause].VertPot,
  592.               PGHInfo[Cause].HorizBody,PGHInfo[Cause].VertBody,1);
  593. }
  594.  
  595.  
  596. VOID ClearDir(LONG Cause)
  597. {
  598.  struct Gadget *Selected;
  599.  long count;
  600.  
  601.  Selected = (Cause == AM) ? AMSelect : PCSelect;
  602.  FreeFInfo(Cause);
  603.  RemoveGList(MainWin,Selected,MAXFILENUM);
  604.  for(count = 0;count < MAXFILENUM;count++)
  605.  {
  606.   strncpy(String[Cause][count],
  607.                    "                                   ", MAXDISPLAY);
  608.   String[Cause][count][MAXDISPLAY] = NULL;
  609.  }
  610.  AddGList(MainWin,Selected,-1,MAXFILENUM,NULL);
  611.  RefreshGList(Selected,MainWin,NULL,MAXFILENUM);
  612. }
  613.  
  614. VOID HandleCd(LONG Cause);
  615.  
  616. VOID EntrySelect(LONG Cause, LONG GadNum)
  617. {
  618.  struct Gadget *Selected;
  619.  static ULONG PrevSec = 0,PrevMic = 0;
  620.  static long SelGad = -1;
  621.  char *Buff,Sep;
  622.  long buffLen;
  623.  
  624.  Selected = (Cause == PC) ? PCSelect : AMSelect;
  625.  Activate(Cause);
  626.  if((GadNum + 1) > FileNum[Cause])
  627.  {
  628.   if(Selected[GadNum].Flags & SELECTED) Selected[GadNum].Flags &= ~SELECTED;
  629.   strncpy(String[Cause][GadNum],
  630.                    "                                   ", MAXDISPLAY);
  631.   String[Cause][GadNum][MAXDISPLAY] = NULL;
  632.   RefreshGList(&Selected[GadNum],MainWin,NULL,1);
  633.   return;
  634.  } 
  635.  RemoveGList(MainWin,Selected,MAXFILENUM); 
  636.  if(Selected[GadNum].Flags & SELECTED)
  637.  {
  638.   if(ItemAddr[Cause][GadNum]->type == FILETYPE)
  639.    SelTexts[Cause][GadNum].FrontPen = DPEN;
  640.   else
  641.    SelTexts[Cause][GadNum].FrontPen = FPEN;
  642.   ItemAddr[Cause][GadNum]->Selected = TRUE;
  643.  }
  644.  else
  645.  {
  646.   if(ItemAddr[Cause][GadNum]->type == FILETYPE)
  647.    SelTexts[Cause][GadNum].FrontPen = FPEN;
  648.   else
  649.    SelTexts[Cause][GadNum].FrontPen = DPEN;
  650.   ItemAddr[Cause][GadNum]->Selected = FALSE;
  651.  }
  652.  AddGList(MainWin,Selected,-1,MAXFILENUM,NULL);
  653.  RefreshGList(Selected,MainWin,NULL,MAXFILENUM);
  654.  
  655.  if(ItemAddr[Cause][GadNum]->type == DIRTYPE)
  656.  {
  657.   if( (GadNum == SelGad) && DoubleClick(PrevSec,PrevMic,NowSec,NowMic))
  658.   {
  659.    Buff = (Cause == PC) ? PCBuff : AMBuff;
  660.    if(strlen(ItemAddr[Cause][GadNum]->name) + strlen(Buff) < BUFFLEN - 1)
  661.    {
  662.     Sep = (Cause == PC) ? '\\' : '/';
  663.     buffLen = strlen(Buff);
  664.     if(Buff[buffLen - 1] != Sep)
  665.     {
  666.      if(!((Cause == AM) && (Buff[buffLen - 1] == ':')))
  667.      { 
  668.       Buff[buffLen] = Sep;
  669.       Buff[buffLen + 1] = NULL;
  670.      }
  671.     }
  672.     strcat(Buff,ItemAddr[Cause][GadNum]->name);
  673.     HandleCd(Cause);
  674.    }
  675.   }
  676.   PrevSec = NowSec;
  677.   PrevMic = NowMic;
  678.   SelGad = GadNum;
  679.  }
  680. }
  681.  
  682.  
  683. VOID ModifyP(LONG Pos, LONG Cause)
  684. {
  685.  LONG vbody;
  686.  USHORT vb;
  687.  
  688.  if (FileNum[Cause] <= MAXFILENUM) vbody = MAXBODY;
  689.  else vbody = (MAXBODY * MAXFILENUM) / FileNum[Cause];
  690.  vb = (USHORT)vbody;
  691.  NewModifyProp(&Gads[PCVPROP + Cause - 1],MainWin,NULL,PGVInfo[Cause].Flags,
  692.                PGVInfo[Cause].HorizPot,Pos,PGVInfo[Cause].HorizBody,vb,1);
  693.  OldVPot[Cause] = Pos;
  694.  
  695.  NewModifyProp(&Gads[PCHPROP + Cause - 1],MainWin,NULL,PGHInfo[Cause].Flags,
  696.               PGHInfo[Cause].HorizPot,PGHInfo[Cause].VertPot,
  697.               MAXBODY / 2,PGHInfo[Cause].VertBody,1);
  698. } 
  699.  
  700.  
  701. VOID HandleDir(VOID)
  702. {
  703.  LONG Error;
  704.  struct FInfo *tmp; 
  705.  short count,ActualNum;
  706.  struct Gadget *Selected;
  707.  long Cause;
  708.  
  709.  if(Active == PC)
  710.  {
  711.   Selected = PCSelect;
  712.   Cause = PC;
  713.  }
  714.  else
  715.  {
  716.   Selected = AMSelect;
  717.   Cause = AM;
  718.  }
  719.  RemoveGList(MainWin,Selected,MAXFILENUM); 
  720.  for(count = 0; count < MAXFILENUM; count++)
  721.   Selected[count].Flags &= ~SELECTED;
  722.  AddGList(MainWin,Selected,-1,MAXFILENUM,NULL);
  723.  RefreshGList(Selected,MainWin,NULL,MAXFILENUM);
  724.  if(First[Cause]) ClearDir(Cause);
  725.  
  726.  WaitPointer();
  727.  if(Cause == AM) 
  728.  {
  729.   if((Error = LocalDir())) Message(Error);
  730.   else Message(SUCCESS);
  731.  }
  732.  else 
  733.  {
  734.   if((Error = RemoteDir())) Message(Error);
  735.   else Message(SUCCESS);
  736.  }
  737.  ActualNum = min(MAXFILENUM,FileNum[Cause]);
  738.  NormalPointer();
  739.  
  740.  if(ActualNum > 0)
  741.  {
  742.   RemoveGList(MainWin,Selected,MAXFILENUM); 
  743.   for(tmp = First[Cause],count = 0; count < ActualNum; tmp = tmp->next,count++) 
  744.   {
  745.    ItemAddr[Cause][count] = tmp;
  746.    if(tmp->type == FILETYPE)
  747.     SelTexts[Cause][count].FrontPen = FPEN;
  748.    else 
  749.     SelTexts[Cause][count].FrontPen = DPEN;
  750.    strncpy(String[Cause][count],&(tmp->data[HPos[Cause]]), MAXDISPLAY);
  751.    String[Cause][count][MAXDISPLAY] = NULL;
  752.   }
  753.   AddGList(MainWin,Selected,-1,MAXFILENUM,NULL);
  754.   RefreshGList(Selected,MainWin,NULL,MAXFILENUM);
  755.   ModifyP(0,Cause);
  756.  }
  757. }
  758.  
  759.  
  760. VOID CloseAll(LONG RetCode)
  761. {
  762.  if(UpData) FreeMem(UpData,sizeof(Up));
  763.  if(DownData) FreeMem(DownData,sizeof(Down));
  764.  if(LeftData) FreeMem(LeftData,sizeof(Left));
  765.  if(RightData) FreeMem(RightData,sizeof(Right));
  766.  if(MainWin) CloseWindow(MainWin);
  767.  if(MainScr) CloseScreen(MainScr);
  768. // if(DOSBase) CloseLibrary((struct Library *)DOSBase);
  769.  if(GfxBase) CloseLibrary((struct Library *)GfxBase);
  770.  if(IntuitionBase) CloseLibrary((struct Library *)IntuitionBase);
  771.  if(OrigPath[0]) chdir(OrigPath);
  772.  CloseSerial();
  773.  exit(RetCode);
  774. }
  775.  
  776.  
  777. VOID OpenAll(VOID)
  778. {
  779.  LONG Err;
  780.  char ConfigBuffer[101];
  781.  
  782.  if(!(IntuitionBase = (struct IntuitionBase *) 
  783.                           OpenLibrary("intuition.library",0L))) CloseAll(20L);
  784.  
  785.  if (!(GfxBase = (struct GfxBase *)
  786.                           OpenLibrary("graphics.library",0L))) CloseAll(20L);
  787.  
  788. // if (!(DOSBase = (struct DOSBase *)
  789. //                               OpenLibrary("dos.library",0L))) CloseAll(20L);
  790.  if(!(MainScr = (struct Screen *) OpenScreen(&MyScreen))) CloseAll(10L);
  791.  LoadRGB4(&(MainScr->ViewPort),ColourTable,4);
  792.  
  793.  MyWindow.Screen = MainScr;
  794.  if(!(MainWin = (struct Window *) OpenWindow(&MyWindow))) CloseAll(10L); 
  795.  
  796.  UpData = (USHORT *) AllocMem(sizeof(Up),MEMF_CHIP);
  797.  DownData = (USHORT *) AllocMem(sizeof(Down),MEMF_CHIP);
  798.  LeftData = (USHORT *) AllocMem(sizeof(Left),MEMF_CHIP);
  799.  RightData = (USHORT *) AllocMem(sizeof(Right),MEMF_CHIP);
  800.  CopyMem(Up,UpData,sizeof(Up));
  801.  CopyMem(Down,DownData,sizeof(Down));
  802.  CopyMem(Left,LeftData,sizeof(Left));
  803.  CopyMem(Right,RightData,sizeof(Right));
  804.  UpArrow.ImageData = UpData;
  805.  DownArrow.ImageData = DownData;
  806.  LeftArrow.ImageData = LeftData;
  807.  RightArrow.ImageData = RightData;
  808.  DrawImage(MainWin->RPort,&DownArrow,297,5);
  809.  DrawImage(MainWin->RPort,&DownArrow,328,5);
  810.  DrawImage(MainWin->RPort,&RightArrow,5,23);
  811.  DrawImage(MainWin->RPort,&RightArrow,354,23);
  812.  DrawBorder(MainWin->RPort,&Borders[41],0,0); 
  813.  PrintIText(MainWin->RPort,&Texts[12],110,120); 
  814.  PrintIText(MainWin->RPort,&Texts[13],430,120); 
  815.  DrawImage(MainWin->RPort,&NameImage, 20,185); 
  816.  SelectPos = AddGList(MainWin,AMSelect,-1,MAXFILENUM,NULL);
  817.  SelectPos = AddGList(MainWin,PCSelect,-1,MAXFILENUM,NULL);
  818.  if(getcd(0,OrigPath) == -1) OrigPath[0] = NULL;
  819.  else
  820.  {
  821.   strcpy(AMBuff,OrigPath);
  822.   RefreshGList(&Gads[AMPATH - 1],MainWin,NULL,1);
  823.  }
  824.  Activate(AM);
  825.  Err = FALSE;
  826.  ConfigFile = fopen(ConfigFileName,"r");
  827.  if(ConfigFile)
  828.  {
  829.   fgets(ConfigBuffer, 101, ConfigFile);
  830.   if(ConfigBuffer[0] == NULL) Err = TRUE;
  831.   if(ConfigBuffer[strlen(ConfigBuffer) - 1] == '\n')
  832.    ConfigBuffer[strlen(ConfigBuffer) - 1] = NULL;
  833.   strcpy(SerialName,ConfigBuffer);
  834.  
  835.   fgets(ConfigBuffer, 101, ConfigFile);
  836.   UnitNum = atoi(ConfigBuffer);
  837.   if((UnitNum < 0) || (UnitNum > 99)) Err = TRUE;
  838.  
  839.   fgets(ConfigBuffer, 101, ConfigFile);
  840.   DelayTime = atoi(ConfigBuffer);
  841.   if((DelayTime <= 0) || (DelayTime > 99)) Err = TRUE;
  842.  
  843.   fgets(ConfigBuffer, 101, ConfigFile);
  844.   CheckTime = atoi(ConfigBuffer);
  845.   if((CheckTime < 0) || (CheckTime > 99)) Err = TRUE;
  846.  
  847.   fgets(ConfigBuffer, 101, ConfigFile);
  848.   CheckSumTry = atoi(ConfigBuffer);
  849.   if((CheckSumTry < 0) || (CheckSumTry > 99)) Err = TRUE;
  850.  
  851.   fgets(ConfigBuffer, 101, ConfigFile);
  852.   MSpeed = atoi(ConfigBuffer);
  853.   if((MSpeed <= 0) || (MSpeed > MAXHARDSPEED)) Err = TRUE;
  854.  
  855.   fgets(ConfigBuffer, 101, ConfigFile);
  856.   Method = atoi(ConfigBuffer);
  857.   if((Method < 0) || (Method > 1)) Err = TRUE;
  858.   fclose(ConfigFile);
  859.   if(Err) Message(ERROR_ReadConfig);
  860.  }
  861.  else Err = TRUE;
  862.  if(Err)
  863.  {
  864.   MSpeed = MAXHARDSPEED;
  865.   Method = HARD;
  866.   UnitNum = DEFUNIT;
  867.   DelayTime = DEFDELAY;
  868.   CheckTime = DEFCHECK;
  869.   CheckSumTry = DEFCHECKSUM;
  870.   strcpy(SerialName,"serial.device");
  871.  }
  872. }
  873.  
  874.  
  875. VOID MoveHoriz(LONG Direction, LONG ByUser, LONG Cause)
  876. {
  877.  int count;
  878.  struct IntuiMessage *message;
  879.  struct Gadget *Selected;
  880.  long ActualNum;
  881.  
  882.  ActualNum = min(MAXFILENUM,FileNum[Cause]);
  883.  do
  884.  {
  885.   if(Direction == LEFT) 
  886.   {
  887.    if(HPos[Cause] >= (DirLen[Cause] - MAXDISPLAY)) return;  
  888.    HPos[Cause]++;
  889.   }
  890.   else 
  891.   {
  892.    if(HPos[Cause] == 0) return; 
  893.    HPos[Cause]--;
  894.   } 
  895.   Selected = (Cause == AM) ? AMSelect : PCSelect;
  896.   RemoveGList(MainWin,Selected,MAXFILENUM);
  897.   for(count = 0;count < ActualNum;count++)
  898.   {
  899.    strncpy(String[Cause][count],
  900.                    &(ItemAddr[Cause][count]->data[HPos[Cause]]), MAXDISPLAY);
  901.    String[Cause][count][MAXDISPLAY] = NULL;
  902.   }
  903.   AddGList(MainWin,Selected,-1,MAXFILENUM,NULL);
  904.   RefreshGList(Selected,MainWin,NULL,MAXFILENUM);
  905.   if(ByUser)
  906.   {
  907.    if(Direction == LEFT)
  908.     OldHPot[Cause] = OldHPot[Cause] + MAXBODY / (DirLen[Cause] - MAXDISPLAY);
  909.    else
  910.     OldHPot[Cause] = OldHPot[Cause] - MAXBODY / (DirLen[Cause] - MAXDISPLAY);
  911.    NewModifyProp(&Gads[PCHPROP + Cause - 1],MainWin,NULL,PGHInfo[Cause].Flags,
  912.                  OldHPot[Cause],PGHInfo[Cause].VertPot,
  913.                  PGHInfo[Cause].HorizBody,PGHInfo[Cause].VertBody,1);
  914.   }
  915.   if(!ByUser) break;
  916.   message = (struct IntuiMessage *)GetMsg(MainWin->UserPort);
  917.  } while(message == NULL);
  918.  if(ByUser) ReplyMsg((struct Message *) message);
  919. }
  920.  
  921.  
  922.  
  923. VOID MoveVert(LONG Direction, LONG ByUser, LONG Cause)
  924. {
  925.  int count;
  926.  struct Gadget *Selected;
  927.  struct IntuiMessage *message;
  928.  long ActualNum;
  929.  
  930.  if(FileNum[Cause] <= MAXFILENUM) return; 
  931.  ActualNum = MAXFILENUM;
  932.  do
  933.  { 
  934.   if(Direction == UP)
  935.   { 
  936.    if(ItemAddr[Cause][MAXFILENUM - 1]->next == NULL) 
  937.    {
  938.     if(ByUser) ModifyP(-1,Cause);
  939.     return;
  940.    }
  941.   }
  942.   else
  943.   {
  944.    if(ItemAddr[Cause][0]->prev == NULL) 
  945.    {
  946.     if(ByUser) ModifyP(0,Cause);
  947.     return;
  948.    }
  949.   }
  950.   Selected = (Cause == AM) ? AMSelect : PCSelect;
  951.   RemoveGList(MainWin,Selected,MAXFILENUM);
  952.   for(count = 0;count < ActualNum;count++)
  953.   {
  954.    if(Direction == UP)
  955.     ItemAddr[Cause][count] = ItemAddr[Cause][count]->next; 
  956.    else
  957.     ItemAddr[Cause][count] = ItemAddr[Cause][count]->prev;
  958.    
  959.    if(ItemAddr[Cause][count]->Selected) 
  960.    {
  961.     if(ItemAddr[Cause][count]->type == FILETYPE)
  962.      SelTexts[Cause][count].FrontPen = DPEN;
  963.     else
  964.      SelTexts[Cause][count].FrontPen = FPEN;
  965.     Selected[count].Flags |= SELECTED;
  966.    }
  967.    else
  968.    {
  969.     if(ItemAddr[Cause][count]->type == FILETYPE)
  970.      SelTexts[Cause][count].FrontPen = FPEN;
  971.     else
  972.      SelTexts[Cause][count].FrontPen = DPEN; 
  973.     Selected[count].Flags &= ~SELECTED;
  974.    }
  975.    strncpy(String[Cause][count],
  976.                    &(ItemAddr[Cause][count]->data[HPos[Cause]]), MAXDISPLAY);
  977.    String[Cause][count][MAXDISPLAY] = NULL;
  978.   }
  979.   AddGList(MainWin,Selected,-1,MAXFILENUM,NULL);
  980.   RefreshGList(Selected,MainWin,NULL,MAXFILENUM);
  981.   if(ByUser)
  982.   {
  983.    if(Direction == UP)
  984.     OldVPot[Cause] = OldVPot[Cause] + MAXBODY / (FileNum[Cause] - MAXFILENUM);
  985.    else
  986.     OldVPot[Cause] = OldVPot[Cause] - MAXBODY / (FileNum[Cause] - MAXFILENUM);
  987.    NewModifyProp(&Gads[PCVPROP + Cause - 1],MainWin,NULL,PGVInfo[Cause].Flags,
  988.                  PGVInfo[Cause].HorizPot,OldVPot[Cause],
  989.                  PGVInfo[Cause].HorizBody,PGVInfo[Cause].VertBody,1);
  990.   }
  991.   if(!ByUser) break;
  992.   message = (struct IntuiMessage *)GetMsg(MainWin->UserPort);
  993.  } while(message == NULL);
  994.  if(ByUser) ReplyMsg((struct Message *) message);
  995. }
  996.  
  997.  
  998. VOID PropHMoved(LONG Cause)
  999. {
  1000.  if(OldHPot[Cause] == PGHInfo[Cause].HorizPot) return;
  1001.  if(OldHPot[Cause] < PGHInfo[Cause].HorizPot)
  1002.  {
  1003.   while(OldHPot[Cause] < PGHInfo[Cause].HorizPot)
  1004.   {
  1005.    MoveHoriz(LEFT,0,Cause);
  1006.    if(OldHPot[Cause] > (MAXBODY - (MAXBODY / (DirLen[Cause] - MAXDISPLAY))))
  1007.    {
  1008.     OldHPot[Cause] = MAXBODY;
  1009.     break;
  1010.    }
  1011.    OldHPot[Cause] = OldHPot[Cause] + MAXBODY / (DirLen[Cause] - MAXDISPLAY);
  1012.   }
  1013.  }
  1014.  else
  1015.  {
  1016.   while(OldHPot[Cause] > PGHInfo[Cause].HorizPot)
  1017.   {
  1018.    MoveHoriz(RIGHT,0,Cause);
  1019.    if(OldHPot[Cause] < (MAXBODY / (DirLen[Cause] - MAXDISPLAY)))
  1020.    {
  1021.     OldHPot[Cause] = 0;
  1022.     break;
  1023.    } 
  1024.    OldHPot[Cause] = OldHPot[Cause] - MAXBODY / (DirLen[Cause] - MAXDISPLAY);
  1025.   }
  1026.  }
  1027.  NewModifyProp(&Gads[PCHPROP + Cause - 1],MainWin,NULL,PGHInfo[Cause].Flags,
  1028.                OldHPot[Cause],PGHInfo[Cause].VertPot,
  1029.                PGHInfo[Cause].HorizBody,PGHInfo[Cause].VertBody,1);
  1030. }
  1031.  
  1032. VOID PropVMoved(LONG Cause)
  1033. {
  1034.  if (FileNum[Cause] <= MAXFILENUM) return;
  1035.  if(OldVPot[Cause] < PGVInfo[Cause].VertPot) 
  1036.  {
  1037.   while(OldVPot[Cause] < PGVInfo[Cause].VertPot)
  1038.   { 
  1039.    MoveVert(UP,0,Cause);
  1040.    if(OldVPot[Cause] > (MAXBODY - (MAXBODY / (FileNum[Cause] - MAXFILENUM))))
  1041.    {
  1042.     OldVPot[Cause] = MAXBODY;
  1043.     break;
  1044.    }
  1045.    OldVPot[Cause] = OldVPot[Cause] + MAXBODY / (FileNum[Cause] - MAXFILENUM);
  1046.   }
  1047.  }
  1048.  else 
  1049.  {
  1050.   while(OldVPot[Cause] > PGVInfo[Cause].VertPot)
  1051.   {
  1052.    MoveVert(DOWN,0,Cause);
  1053.    if(OldVPot[Cause] < (MAXBODY / (FileNum[Cause] - MAXFILENUM)))
  1054.    {
  1055.     OldVPot[Cause] = 0;
  1056.     break;
  1057.    } 
  1058.    OldVPot[Cause] = OldVPot[Cause] - MAXBODY / (FileNum[Cause] - MAXFILENUM);
  1059.   }
  1060.  }
  1061.  NewModifyProp(&Gads[PCVPROP + Cause - 1],MainWin,NULL,PGVInfo[Cause].Flags,
  1062.                PGVInfo[Cause].HorizPot,OldVPot[Cause],
  1063.                PGVInfo[Cause].HorizBody,PGVInfo[Cause].VertBody,1);
  1064. }
  1065.  
  1066. VOID HandleMakeDir(VOID)
  1067. {
  1068.  LONG Error,Done = FALSE;
  1069.  USHORT GadgetNum;
  1070.  struct Gadget *GadgetPtr; 
  1071.  struct IntuiMessage *message;
  1072.  
  1073.  RemoveGList(MainWin,AMSelect,MAXFILENUM);
  1074.  RemoveGList(MainWin,PCSelect,MAXFILENUM);
  1075.  RemoveGList(MainWin,Gads,AMHPROP);
  1076.  AddGList(MainWin,&DirGad,-1,1,NULL);
  1077.  RefreshGList(&DirGad,MainWin,NULL,1);
  1078.  ActivateGadget(&DirGad,MainWin,NULL); 
  1079.  Message(DIRNAME);
  1080.  do
  1081.  {
  1082.   WaitPort(MainWin->UserPort);
  1083.   message = (struct IntuiMessage *)GetMsg(MainWin->UserPort);
  1084.   GadgetPtr = (struct Gadget *)message->IAddress;
  1085.   GadgetNum = GadgetPtr->GadgetID;
  1086.   ReplyMsg((struct Message *) message);
  1087.   switch (GadgetNum)
  1088.   {
  1089.    case DIRSTRGAD: Done = TRUE; break;
  1090.    default: break;
  1091.   }
  1092.  } while(Done != TRUE);
  1093.  if(DirBuff[0] != NULL)
  1094.  {
  1095.   WaitPointer();
  1096.   if(Active == PC) 
  1097.   {
  1098.    if((Error = RemoteMKDir(DirBuff))) Message(Error);
  1099.    else Message(SUCCESS);
  1100.   }
  1101.   else
  1102.   {
  1103.    if((Error = LocalMKDir(DirBuff))) Message(Error);
  1104.    else Message(SUCCESS);
  1105.   }
  1106.   NormalPointer();
  1107.  }
  1108.  else Message(CANCELED);
  1109.  Borders[15].FrontPen = 0;
  1110.  Borders[14].FrontPen = 0;
  1111.  Borders[13].FrontPen = 0;
  1112.  Borders[12].FrontPen = 0;
  1113.  DirBuff[0] = NULL;
  1114.  RefreshGList(&DirGad,MainWin,NULL,1);
  1115.  RemoveGList(MainWin,&DirGad,1);
  1116.  Borders[15].FrontPen = 2;
  1117.  Borders[14].FrontPen = 1;
  1118.  Borders[13].FrontPen = 1;
  1119.  Borders[12].FrontPen = 2;
  1120.  AddGList(MainWin,Gads,-1,AMHPROP,NULL);
  1121.  AddGList(MainWin,AMSelect,-1,MAXFILENUM,NULL);
  1122.  AddGList(MainWin,PCSelect,-1,MAXFILENUM,NULL);
  1123.  if(NumDone > 0)
  1124.  {
  1125.   RefreshGList(Gads,MainWin,NULL,AMHPROP);
  1126.   RefreshGList(AMSelect,MainWin,NULL,MAXFILENUM);
  1127.   RefreshGList(PCSelect,MainWin,NULL,MAXFILENUM);
  1128.   DrawBorder(MainWin->RPort,&Borders[23],0,0);
  1129.   if(!Error) HandleDir(); 
  1130.  }
  1131. } 
  1132.  
  1133.  
  1134. VOID HandleCd(LONG Cause)
  1135. {
  1136.  LONG Error;
  1137.  
  1138.  Activate(Cause);
  1139.  if(Cause == AM)
  1140.  {
  1141.   WaitPointer();
  1142.   Error = LocalCd(AMBuff);
  1143.   RefreshGList(&Gads[AMPATH - 1],MainWin,NULL,1);
  1144.   NormalPointer(); 
  1145.  }
  1146.  else 
  1147.  {
  1148.   if(PCBuff[0] == NULL)
  1149.    strcpy(PCBuff,".");
  1150.   WaitPointer();
  1151.   Error = RemoteCd(PCBuff);
  1152.   strcpy(PCBuff,Packet.Data);
  1153.   RefreshGList(&Gads[PCPATH - 1],MainWin,NULL,1);
  1154.   NormalPointer();
  1155.  }
  1156.  if(!Error) HandleDir();
  1157.  else Message(Error); 
  1158. }
  1159.  
  1160.  
  1161. VOID HandleParent(VOID)
  1162. {
  1163.  if(Active == PC)
  1164.  {
  1165.   strcpy(PCBuff,"..");
  1166.   HandleCd(PC);
  1167.  }
  1168.  else
  1169.  {
  1170.   strcpy(AMBuff,"/");
  1171.   HandleCd(AM);
  1172.  }
  1173. }
  1174.  
  1175.  
  1176. VOID HandleDel(VOID)
  1177. {
  1178.  LONG Error;
  1179.  
  1180.  WaitPointer();
  1181.  if(Active == AM) 
  1182.  {
  1183.   if((Error = LocalDel())) Message(Error);
  1184.   else if(NumDone > 0) Message(SUCCESS);
  1185.   else Message(CANCELED);
  1186.  }
  1187.  else
  1188.  {
  1189.   if((Error = RemoteDel())) Message(Error); 
  1190.   else if(NumDone > 0) Message(SUCCESS);
  1191.   else Message(CANCELED);
  1192.  }
  1193.  NormalPointer();
  1194.  if(NumDone > 0) HandleDir();
  1195. }
  1196.  
  1197.  
  1198. VOID HandleOverWrite(VOID)
  1199. {
  1200.  if(OverWriteProtect == TRUE)
  1201.  {
  1202.   OverWriteProtect = FALSE;
  1203.   Gads[5].GadgetText = &Texts[10];
  1204.  }
  1205.  else
  1206.  {
  1207.   OverWriteProtect = TRUE;
  1208.   Gads[5].GadgetText = &Texts[9];
  1209.  }
  1210.  RefreshGList(&Gads[5],MainWin,NULL,1);
  1211. }
  1212.  
  1213. VOID HandleComm(VOID)
  1214. {
  1215.  LONG Error,Prev;
  1216.  
  1217.  WaitPointer();
  1218.  if(Gads[0].GadgetText == &Texts[0]) /* connect */
  1219.  {
  1220.   CurrSpeed = MINSPEED - 1;
  1221.   if((Error = OpenSerial()))
  1222.   {
  1223.    Message(Error);
  1224.    CloseSerial();
  1225.    NormalPointer();
  1226.    return;
  1227.   }
  1228.   CurrSpeed = MSpeed - 1;
  1229.  
  1230.   if((Error = PutSpeedMethodDelay()))
  1231.   {
  1232.    Message(Error);
  1233.    CloseSerial();
  1234.    NormalPointer();
  1235.    return;
  1236.   }
  1237.  
  1238.   if((Error = SetSerial()))
  1239.   {
  1240.    Message(Error);
  1241.    CloseSerial();
  1242.    NormalPointer();
  1243.    return;
  1244.   }
  1245.   if(Active == PC) Gads[0].GadgetText = &Texts[2];
  1246.   else if(Active == AM) Gads[0].GadgetText = &Texts[1];
  1247.   RefreshGList(&Gads[0],MainWin,NULL,1);
  1248.   if(Mode == TEXT) Gads[4].GadgetText = &Texts[6];
  1249.   else Gads[4].GadgetText = &Texts[7];
  1250.   Gads[4].NextGadget = &Gads[5];
  1251.   RefreshGList(&Gads[4],MainWin,NULL,2);
  1252.  }
  1253.  else
  1254.  {
  1255.   if(Gads[0].GadgetText == &Texts[2]) /* receive */
  1256.   {
  1257.    if((Error = RemoteReceive())) Message(Error);
  1258.    if(NumDone > 0) 
  1259.    { 
  1260.     if(!Error) Message(SUCCESS);
  1261.     Prev = Active;
  1262.     Active = AM; HandleDir(); Active = Prev;
  1263.    }
  1264.    else Message(CANCELED);
  1265.   }
  1266.   else
  1267.   {
  1268.    if((Error = RemoteSend())) Message(Error);
  1269.    if(NumDone > 0) 
  1270.    { 
  1271.     if(!Error) Message(SUCCESS);
  1272.     Prev = Active;
  1273.     Active = PC; HandleDir(); Active = Prev;
  1274.    }
  1275.    else Message(CANCELED);
  1276.   }
  1277.  }
  1278.  NormalPointer();
  1279. }
  1280.  
  1281. VOID HandleQuit(VOID)
  1282. {
  1283.  Message(InformOfQuit);
  1284.  WaitPointer();
  1285.  RemoteQuit();
  1286.  NormalPointer();
  1287. }
  1288.  
  1289.  
  1290. LONG CheckEsc(VOID)
  1291. {
  1292.  struct IntuiMessage *message;
  1293.  
  1294.  message = (struct IntuiMessage *)GetMsg(MainWin->UserPort);
  1295.  while(message)
  1296.  {
  1297.   if(message->Class != RAWKEY) 
  1298.   { ReplyMsg((struct Message *) message); return NO_ERROR; } 
  1299.   if(message->Code == 0X45) 
  1300.   { ReplyMsg((struct Message *) message); return ERROR_Break; } 
  1301.   ReplyMsg((struct Message *) message);
  1302.   message = (struct IntuiMessage *)GetMsg(MainWin->UserPort);
  1303.  }
  1304.  return NO_ERROR;
  1305. }
  1306.  
  1307. extern struct MsgPort *TimerMP;
  1308. extern struct timerequest *TimerIO;
  1309.  
  1310.  
  1311. extern long Serial_OK;
  1312.  
  1313. VOID main()
  1314. {
  1315.  ULONG Sig;
  1316.  LONG Done = FALSE,Error;
  1317.  USHORT GadgetNum;
  1318.  struct Gadget *GadgetPtr; 
  1319.  struct IntuiMessage *message;
  1320.  SHORT TimerSetup = FALSE;
  1321.  
  1322.  OpenAll();
  1323.  do
  1324.  {
  1325.   if(Serial_OK && (CheckTime > 0) && !OpenTimer())
  1326.   {
  1327.    TimerSetup = TRUE;
  1328.    TimerIO->tr_node.io_Command = TR_ADDREQUEST;
  1329.    TimerIO->tr_time.tv_secs = CheckTime;
  1330.    TimerIO->tr_time.tv_micro = 2;
  1331.    SendIO((struct IORequest *)TimerIO);
  1332.    Sig = Wait((1L << (MainWin->UserPort)->mp_SigBit) | 
  1333.               (1L << TimerMP->mp_SigBit));
  1334.    AbortIO((struct IORequest *)TimerIO);
  1335.    WaitIO((struct IORequest *)TimerIO);
  1336.    CloseTimer();
  1337.   } 
  1338.   else
  1339.    Sig = Wait(1L << (MainWin->UserPort)->mp_SigBit);
  1340.   if(Sig & (1L << (MainWin->UserPort)->mp_SigBit))
  1341.   {
  1342.    while(message = (struct IntuiMessage *)GetMsg(MainWin->UserPort))
  1343.    {
  1344.     if(message->Class == RAWKEY) 
  1345.     { 
  1346.      ReplyMsg((struct Message *) message);
  1347.      continue; 
  1348.     }
  1349.     GadgetPtr = (struct Gadget *)message->IAddress;
  1350.     GadgetNum = GadgetPtr->GadgetID;
  1351.     NowSec = message->Seconds;
  1352.     NowMic = message->Micros;
  1353.     ReplyMsg((struct Message *) message);
  1354.     PrintFileName(NULL);
  1355.     ShowRemainder(0,0);
  1356.     ClrSer();
  1357.     switch (GadgetNum)
  1358.     {
  1359.      case EXIT: HandleQuit(); Done = TRUE; break;
  1360.      case COMM: HandleComm(); break;
  1361.      case PARENT: HandleParent(); break;
  1362.      case MKDIR: HandleMakeDir(); break;
  1363.      case CONFIG: Configure(); break;
  1364.      case DELETE: HandleDel(); break;
  1365.      case OVRWRITE: HandleOverWrite(); break; 
  1366.  
  1367.      case PCUP: Activate(PC); MoveVert(DOWN,1,PC); break;
  1368.      case AMUP: Activate(AM); MoveVert(DOWN,1,AM); break;
  1369.      case PCDOWN: Activate(PC); MoveVert(UP,1,PC); break;
  1370.      case AMDOWN: Activate(AM); MoveVert(UP,1,AM); break;
  1371.      case PCVPROP: Activate(PC); PropVMoved(PC); break;
  1372.      case AMVPROP: Activate(AM); PropVMoved(AM); break;
  1373.      case PCLEFT: Activate(PC); MoveHoriz(RIGHT,1,PC); break;
  1374.      case AMLEFT: Activate(AM); MoveHoriz(RIGHT,1,AM); break;
  1375.      case PCRIGHT: Activate(PC); MoveHoriz(LEFT,1,PC); break;
  1376.      case AMRIGHT: Activate(AM); MoveHoriz(LEFT,1,AM); break;
  1377.      case PCHPROP: Activate(PC); PropHMoved(PC); break;
  1378.      case AMHPROP: Activate(AM); PropHMoved(AM); break;
  1379.  
  1380.      case AMPATH: HandleCd(AM); break;
  1381.      case PCPATH: HandleCd(PC); break;
  1382.  
  1383.      case AM1: EntrySelect(AM,0); break;
  1384.      case AM2: EntrySelect(AM,1); break;
  1385.      case AM3: EntrySelect(AM,2); break;
  1386.      case AM4: EntrySelect(AM,3); break;
  1387.      case AM5: EntrySelect(AM,4); break;
  1388.      case AM6: EntrySelect(AM,5); break;
  1389.      case AM7: EntrySelect(AM,6); break;
  1390.      case AM8: EntrySelect(AM,7); break;
  1391.      case AM9: EntrySelect(AM,8); break;
  1392.  
  1393.      case PC1: EntrySelect(PC,0); break;
  1394.      case PC2: EntrySelect(PC,1); break;
  1395.      case PC3: EntrySelect(PC,2); break;
  1396.      case PC4: EntrySelect(PC,3); break;
  1397.      case PC5: EntrySelect(PC,4); break;
  1398.      case PC6: EntrySelect(PC,5); break;
  1399.      case PC7: EntrySelect(PC,6); break;
  1400.      case PC8: EntrySelect(PC,7); break;
  1401.      case PC9: EntrySelect(PC,8); break;
  1402.      default: break;
  1403.     }
  1404.    } /* while Message */
  1405.   }
  1406.   else /* timer! */
  1407.    if((Error = CheckLink())) Message(Error);
  1408.  }while(!Done);
  1409.  if(First[AM]) FreeFInfo(AM);
  1410.  if(First[PC]) FreeFInfo(PC);
  1411.  CloseAll(0);
  1412. }
  1413.